R Notebook

library (plotly)

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

   # Install patchwork package
library("patchwork")  

manning <- read_csv("manning.csv")

Warning: Missing column names filled in: 'X1' [1]

── Column specification ────────────────────────────────────────────────────────────────────────────────────────────
cols(
  X1 = col_double(),
  season = col_double(),
  name = col_character(),
  team_color = col_character(),
  headshot_url = col_character(),
  epa = col_double()
)

g <- ggplot(manning, aes(x = season, y = epa))

g1 <- g + geom_line(color = manning$team_color)+
  xlim(1999, 2021)+
  ylim(-75, 300)+
  theme_classic()

pic <- manning$headshot_url[1]

library(magick)
pic2 <- image_read(pic)

image <- image_fill(pic2, 'none')
raster <- as.raster(image)

g2 <- g1 + annotation_raster(raster, 1998, 2002, 200, 300)

brady <- read_csv("brady.csv")

Warning: Missing column names filled in: 'X1' [1]

── Column specification ────────────────────────────────────────────────────────────────────────────────────────────
cols(
  X1 = col_double(),
  season = col_double(),
  name = col_character(),
  team_color = col_character(),
  headshot_url = col_character(),
  epa = col_double()
)

b <- ggplot(brady, aes(x = season, y = epa))

b1 <- b + geom_line(color = brady$team_color)+
  xlim(1999, 2022)+
  ylim(-75, 300)+
  theme_classic()

pic <- brady$headshot_url[1]

pic2 <- image_read(pic)

image <- image_fill(pic2, 'none')
raster <- as.raster(image)


b2 <- b1 + annotation_raster(raster, 2000, 2004, 200, 300)

ben <- read_csv("ben.csv")

Warning: Missing column names filled in: 'X1' [1]

── Column specification ────────────────────────────────────────────────────────────────────────────────────────────
cols(
  X1 = col_double(),
  season = col_double(),
  name = col_character(),
  team_color = col_character(),
  headshot_url = col_character(),
  epa = col_double()
)

b <- ggplot(ben, aes(x = season, y = epa))

b1 <- b + geom_line(color = ben$team_color)+
  xlim(1999, 2022)+
  ylim(-75, 300)+
  theme_classic()

pic <- ben$headshot_url[1]

pic2 <- image_read(pic)

image <- image_fill(pic2, 'none')
raster <- as.raster(image)


b3 <- b1 + annotation_raster(raster, 2000, 2004, 200, 300)

cam <- read_csv("cam.csv")

Warning: Missing column names filled in: 'X1' [1]

── Column specification ────────────────────────────────────────────────────────────────────────────────────────────
cols(
  X1 = col_double(),
  season = col_double(),
  name = col_character(),
  team_color = col_character(),
  headshot_url = col_character(),
  epa = col_double()
)

b <- ggplot(cam, aes(x = season, y = epa))

b1 <- b + geom_line(color = cam$team_color)+
  xlim(1999, 2022)+
  ylim(-75, 300)+
  theme_classic()

pic <- cam$headshot_url[1]
pic2 <- image_read(pic)

image <- image_fill(pic2, 'none')
raster <- as.raster(image)

b5 <- b1 + annotation_raster(raster, 2000, 2004, 200, 300)

b5

subplot(nrows = 2,g2, b2, b5, b4)